home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / compress.rexx < prev    next >
OS/2 REXX Batch file  |  1997-02-15  |  1KB  |  45 lines
  1. /* COMPRESSION SCRIPT */
  2.  
  3. address AV.REXX
  4. OPTIONS RESULTS
  5.  
  6. GETVAR ACMDIN
  7. compcomm=RESULT
  8.  
  9. GETVAR DIRECT
  10. compdir=RESULT
  11.  
  12. address command 'echo >env:DIR 'compdir
  13.  
  14. CALL OPEN test, 'ram:COMP.SCPT' , write
  15. CALL WRITELN test, 'cd ram:' 
  16. CALL WRITELN test, compcomm 
  17. CALL WRITELN test, 'endcli' 
  18. CALL CLOSE test
  19. address command 'newshell from ram:COMP.SCPT'
  20.  
  21.  
  22. CALL OPEN testc, 'ram:pause' , write
  23. CALL WRITELN testc, 'REQUESTCHOICE >ENV:RECNUM "Waiting...." "Click here when completed" "OK" '
  24. CALL WRITELN testc, 'IF $RECNUM EQ "0"'
  25. CALL WRITELN testc, 'Endif'
  26. CALL CLOSE testc 
  27.  
  28. CALL OPEN testc, 'ram:pause2' , write
  29. CALL WRITELN testc, 'REQUESTCHOICE >ENV:RECNUM "Waiting...." "COPY TO $DIR" "YES" "NO" '
  30. CALL WRITELN testc, 'IF $RECNUM EQ "0"'
  31. CALL WRITELN testc, 'Endif'
  32. CALL WRITELN testc, 'IF $RECNUM EQ "1"'
  33. CALL WRITELN testc, 'copy ram:homepage.#? to $DIR'
  34. CALL WRITELN testc, 'Endif'
  35. CALL CLOSE testc 
  36.  
  37. address command 'execute ram:pause'
  38. address command 'delete ram:pause'
  39.  
  40.  
  41. address command 'execute ram:pause2'
  42. address command 'delete ram:pause2'
  43. address command 'delete env:DIR'
  44. address command 'delete ram:COMP.SCPT'
  45.